[msproject] estrazione dati per masterplan

Hai un problema con Excel?

Nuova discussione

[msproject] estrazione dati per masterplan
di Alexp84 data: 13/06/2011
Buongiorno a tutti

ho un piccolo problema con vba di project; in parole povere ho un file 'mamma' [pj] coi riferimenti ai file 'figli' [pj_child].

l'obiettivo è mantenere aperta la connessione alla 'mamma' e aprire ciclicamente i 'figli' per estrarne le informazioni ed inserirle nella 'mamma'.

il problema si pone quando nel chiudere il file 'figlio', mi chiude invece l'app della 'mamma'.

se qualcuno potesse darmi una mano mi farebbe davvero una cortesia.

grazie in anticipo
alex

Sub Crea_MasterPlan()

    Dim PJ As Object
    Dim PJ_Child As Object
    Dim Task As Integer
    Dim Caricato As Boolean
    Dim Prompt As Integer
    Dim Progetto As Task
    Dim Task_Appo As Task
    Dim NewPJapp As MSProject.Application
    
    On Error GoTo Err_Handler
    
    Caricato = False

''Creo MP
    ResourceSharingPoolAction _Action:=pjOpenAllSharers, ReadOnly:=False
    WindowActivate WindowName:=ActiveProject.Name
    Set PJ = ActiveProject
    PJ.Application.DisplayAlerts = False
    Caricato = True
    OptionsSchedule WorkUnits:=7
    
''Setto l'area
    For Each Progetto In PJ.OutlineChildren
        Set PJ_Child = GetObject(Progetto.Subproject)
            For Each Task_Appo In PJ_Child.Tasks
                If Task_Appo.Text5 <> "" Then
                    Progetto.Text5 = Task_Appo.Text5
                    Exit For
                Else
                    Progetto.Text5 = "ND"
                End If
            Next Task_Appo
        PJ_Child.Application.FileClose pjDoNotSave
        Set PJ_Child = Nothing
    Next Progetto

ecc..

end sub

Vuoi Approfondire?